home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / dev / lang / uc_0_30.lha / u / tca / tc0019.ua < prev    next >
Text File  |  1996-10-30  |  998b  |  86 lines
  1. `**********************
  2. `* P R O J E C T  < U >
  3. `*
  4. `* Author and copyright
  5. `* (c) 1996
  6. `* Paul van der Valk
  7. `*
  8. `* file: tc0019.ua
  9. `*
  10. `* Tests AllocClearMem(), FreeMem() & AvailMem()
  11. `*
  12.  
  13. #1 .H 2 0 0 0
  14. #2 .M "tc0019" 20 10 0 0
  15.  
  16. #10 >11 .V "Avail_1"
  17. #11 >12 .V "Avail_2"
  18. #12 >13 .V "Avail_3"
  19. #13 >14 .V "Size"
  20. #14 .V "MemBlock"
  21.  
  22. #20 >30 .a 13 21
  23. #21 .n 1000
  24.  
  25. #30 >32 .a 10 31
  26. #31 .c 19 0
  27.  
  28. #32 >35 .a 14 33
  29. #33 .c 17 34
  30. #34 .v 13
  31.  
  32. #35 .i 36 50 40
  33. #36 .v 14
  34.  
  35. #40 .c 2 41
  36. #41 .s "Couldn't allocate memory"
  37.  
  38. #50 >52 .a 11 51
  39. #51 .c 19 0
  40.  
  41. #52 >54 .c 18 53
  42. #53 .v 14
  43.  
  44. #54 >60 .a 12 55
  45. #55 .c 19 0
  46.  
  47. #60 >62 .c 1 61
  48. #61 .s "Allocated "
  49.  
  50. #62 >64 .c 4 63
  51. #63 .v 13
  52.  
  53. #64 >70 .c 2 65
  54. #65 .s " (cleared) bytes"
  55.  
  56. #70 >72 .c 1 71
  57. #71 .s "Available before allocation : "
  58.  
  59. #72 >74 .c 4 73
  60. #73 .v 10
  61.  
  62. #74 >80 .c 3 0
  63.  
  64. #80 >82 .c 1 81
  65. #81 .s "Available after allocation  : "
  66.  
  67. #82 >84 .c 4 83
  68. #83 .v 11
  69.  
  70. #84 >90 .c 3 0
  71.  
  72. #90 >92 .c 1 91
  73. #91 .s "Available after freeing     : "
  74.  
  75. #92 >95 .c 4 93
  76. #93 .v 12
  77.  
  78. #95 .c 3 0
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.